$file = "HG-U133_Plus_2.na30.annot.csv";
open(BUFF,$file);
open(WRBUFF,">out_HG-U133_Plus_2");
while($line = <BUFF>)
{
	chomp $line;
	@array = split(/\,/,$line);
	print "$array[14]\n";


}
